home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / ConnectBBS.cpt / Connection BBS / background_2777.txt < prev    next >
Text File  |  1988-01-25  |  1KB  |  46 lines
  1. -- background: 2777 from stack: in
  2. -- bmap block id: 17892
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Background 1
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   hide menuBar
  10.   pass openStack
  11. end openStack
  12. on doButton
  13.   Answer "Install Button in Home?" with "No" or "Yes"
  14.   if it is not "Yes" then exit doButton
  15.   choose button tool
  16.   get the rect of target
  17.   click at (item 1 of it),(item 2 of it)
  18.   doMenu Copy Button
  19.   put card field "Stage 2" into newScript
  20.   get the short name of target
  21.   go Home
  22.   doMenu Paste Button
  23.   set the script of card button it to newScript
  24.   put "Move the button where you want it, type Command-Tab, and click it"
  25. end doButton
  26.  
  27.  
  28.  
  29. -- part 16 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=457 top=297 right=319 bottom=485
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 11045 / 11045
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: 
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   go home
  44. end mouseUp
  45.  
  46.